home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 December / CHIP Turkiye Aralık 1997.iso / internet / lsmirc61.exe / botlite.in_ / botlite.in
Encoding:
INI File  |  1997-09-06  |  11.7 KB  |  277 lines
  1. [script]
  2. n0=;
  3. n1=;         this section deals with "bot lite"
  4. n2=;
  5. n3=#bot on
  6. n4=on 50:TEXT:.kickban*:?:{
  7. n5=  if $ulevel != 60 {
  8. n6=    if $2 = $null { raw q- PRIVMSG $nick :4,0Syntax: .kickban <nick> <reason>, <reason> is optional | halt }
  9. n7=    if $3 = $null set %reason Requested
  10. n8=    else set %reason $3-
  11. n9=    botlog $nick Kick-Ban $2 ( $+ %reason $+ )
  12. n10=    if $2 = $me { raw -q PRIVMSG $nick :4,0Duh... hey Marge, I think I'll ban myself today | halt }
  13. n11=    if $a2($2) = $null { raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on | halt }
  14. n12=    %m = 0
  15. n13=    :nx
  16. n14=    inc %m
  17. n15=    if $chan(%m) != $null {
  18. n16=      if $2 ison $chan(%m) {
  19. n17=        if $ismaster($2,$chan(%m)) {
  20. n18=          raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : $2 is in my userlist as a master or bot
  21. n19=        }
  22. n20=        elseif $me isop $chan(%m) {
  23. n21=          mode $chan(%m) -o+b $2 $a3($2)
  24. n22=          kick $chan(%m) $2 %reason
  25. n23=          rtb $a3($2) $chan(%m)
  26. n24=          raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : kick-banning $2
  27. n25=        }
  28. n26=        else raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : I see $2 $+ , but I'm not opped on that channel
  29. n27=      }
  30. n28=      goto nx
  31. n29=    }
  32. n30=    halt
  33. n31=  }
  34. n32=}
  35. n33=on 50:TEXT:.kick*:?:{
  36. n34=  if $ulevel != 60 {
  37. n35=    if $2 = $null { raw q- PRIVMSG $nick :4,0Syntax: .kick <nick> <reason>, <reason> is optional | halt }
  38. n36=    if $3 = $null set %reason Requested
  39. n37=    else set %reason $3-
  40. n38=    botlog $nick Kick $2 ( $+ %reason $+ )
  41. n39=    if $2 = $me { raw -q PRIVMSG $nick :4,0Duh... hey Marge, I think I'll kick myself today | halt }
  42. n40=    if $a2($2) = $null { raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on | halt }
  43. n41=    %m = 0
  44. n42=    :nx
  45. n43=    inc %m
  46. n44=    if $chan(%m) != $null {
  47. n45=      if $2 ison $chan(%m) {
  48. n46=        if $ismaster($2,$chan(%m)) {
  49. n47=          raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : $2 is in my userlist as a master or bot
  50. n48=        }
  51. n49=        elseif $me isop $chan(%m) {
  52. n50=          kick $chan(%m) $2 %reason
  53. n51=          raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : kicking $2
  54. n52=        }
  55. n53=        else raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : I see $2 $+ , but I'm not opped on that channel
  56. n54=      }
  57. n55=      goto nx
  58. n56=    }
  59. n57=    halt
  60. n58=  }
  61. n59=}
  62. n60=on 50:TEXT:.nick*:?:{
  63. n61=  if $ulevel != 60 {
  64. n62=    botlog $nick Change Nicks (to $2 $+ )
  65. n63=    nick $2
  66. n64=    raw -q PRIVMSG $nick :4,0Attempting to change my nick to $2
  67. n65=    halt
  68. n66=  }
  69. n67=}
  70. n68=on 50:TEXT:.op*:?:{
  71. n69=  if $ulevel != 60 {
  72. n70=    if $2 = $null { raw -q PRIVMSG $nick :4,0Syntax: .op <nick> OR .op <nick> <channel> | halt }
  73. n71=    if $a3($2) != $null botlog $nick Op $2 ( $+ $a3($2) $+ )
  74. n72=    else botlog $nick Op $2 (no address for $2 $+ )
  75. n73=    if $a2($2) = $null { raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on | halt }
  76. n74=    if $3 != $null {
  77. n75=      if $me !ison $3 raw -q PRIVMSG $nick :4,0I'm not on $3 $+ !
  78. n76=      elseif $me !isop $3 raw -q PRIVMSG $nick :4,0Sorry, I can't help you because I am not a channel op on $3
  79. n77=      elseif $2 !ison $3 raw -q PRIVMSG $nick :4,0 $+ $2 is not on $3 $+ !
  80. n78=      elseif $2 isop $3 raw -q PRIVMSG $nick :4,0 $+ $2 is already opped on $3 $+ !
  81. n79=      elseif ((%bitch [ $+ [ $3 ] ] ) && ($notop($2,$3))) {
  82. n80=        raw -q notice $nick :4,0Sorry, bitch mode is set for $3 and $2 is not in my op list on that channel
  83. n81=      }
  84. n82=      else {
  85. n83=        raw -q PRIVMSG $nick :4,0ok, done
  86. n84=        mode $3 +o $2     
  87. n85=      }
  88. n86=    }
  89. n87=    else {
  90. n88=      %m = 0
  91. n89=      :nx
  92. n90=      inc %m
  93. n91=      if $chan(%m) != $null {
  94. n92=        if $2 ison $chan(%m) {
  95. n93=          if $2 isop $chan(%m) raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : $2 is already opped
  96. n94=          elseif $me isop $chan(%m) {
  97. n95=            if ((%bitch [ $+ [ $chan(%m ] ] ) && ($notop($2,$chan(%m)))) {
  98. n96=              raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ :Sorry, $2 is not in my op list on $chan(%m) and bitch mode is set for that channel
  99. n97=            }
  100. n98=            else { raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : giving ops to $2 | mode $chan(%m) +o $2 }
  101. n99=          }
  102. n100=          else raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : I see $2 $+ , but I'm not opped on that channel
  103. n101=        }
  104. n102=        goto nx
  105. n103=      }
  106. n104=    }
  107. n105=    halt
  108. n106=  }
  109. n107=}
  110. n108=on 50:TEXT:.deop*:?:{
  111. n109=  if $ulevel != 60 {
  112. n110=    if $2 = $null { raw q- PRIVMSG $nick :4,0Syntax: .deop <nick> OR .deop <nick> <channel> | halt }
  113. n111=    botlog $nick Deop $2
  114. n112=    if $2 = $me { raw -q PRIVMSG $nick :4,0Duh... hey Marge, I think I'll deop myself today | halt }
  115. n113=    if $a2($2) = $null { raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on | halt }
  116. n114=    if $3 != $null {
  117. n115=      if $me !ison $3 raw -q PRIVMSG $nick :4,0I'm not on $3 $+ !
  118. n116=      elseif $me !isop $3 raw -q PRIVMSG $nick :4,0Sorry, I can't help you because I am not a channel op on $3
  119. n117=      elseif $2 !ison $3 raw -q PRIVMSG $nick :4,0 $+ $2 is not on $3 $+ !
  120. n118=      elseif $2 !isop $3 raw -q PRIVMSG $nick :4,0 $+ $2 is not opped on $3 $+ !
  121. n119=      elseif ($ismaster($2,$3)) raw -q PRIVMSG $nick :4,0Sorry, $2 is in my userlist as a master or bot on $3
  122. n120=      else {
  123. n121=        raw -q PRIVMSG $nick :4,0ok, done
  124. n122=        mode $3 -o $2     
  125. n123=      }
  126. n124=    }
  127. n125=    else {
  128. n126=      %m = 0
  129. n127=      :nx
  130. n128=      inc %m
  131. n129=      if $chan(%m) != $null {
  132. n130=        if $2 ison $chan(%m) {
  133. n131=          if $2 !isop $chan(%m) raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : $2 is not opped
  134. n132=          elseif ($ismaster($2,$chan(%m))) { 
  135. n133=            raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : $2 is in my userlist as a master or bot
  136. n134=          }
  137. n135=          elseif $me isop $chan(%m) {
  138. n136=            mode $chan(%m) -o $2
  139. n137=            raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : deopping $2
  140. n138=          }
  141. n139=          else raw -q PRIVMSG $nick :4,0 $+ $chan(%m) $+ : I see $2 $+ , but I'm not opped on that channel
  142. n140=        }
  143. n141=        goto nx
  144. n142=      }
  145. n143=    }
  146. n144=    halt
  147. n145=  }
  148. n146=}
  149. n147=on 50:TEXT:.ban*:?:{
  150. n148=  if $ulevel != 60 {
  151. n149=    if $2 = $null { raw -q PRIVMSG $nick :4,0Syntax: .ban <nick> <reason>, <reason> is optional | halt }
  152. n150=    if $3 = $null set %reason Requested
  153. n151=    else set %reason $3-
  154. n152=    botlog $nick Ban $2 ( $+ %reason $+ )
  155. n153=    if $2 = $me { raw -q PRIVMSG $nick :4,0Duh... hey Marge, I think I'll ban myself today | halt }
  156. n154=    if ($gl($2) > 18) { raw -q PRIVMSG $nick :4,0Sorry, $2 is in my userlist | halt }
  157. n155=    if $a2($2) = $null { raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on | halt }
  158. n156=    raw -q PRIVMSG $nick :4,0ok, adding $a3($2) to my permanent ban list
  159. n157=    addban $a3($2) global %reason
  160. n158=    %m = 0
  161. n159=    :nx
  162. n160=    inc %m
  163. n161=    if $chan(%m) != $null { kickbanall $a3($2) $chan(%m) %reason | goto nx }
  164. n162=    halt
  165. n163=  }
  166. n164=}
  167. n165=on 50:TEXT:.say*:?:{
  168. n166=  if $ulevel != 60 {
  169. n167=    if $2 = $null raw -q PRIVMSG $nick :4,0Syntax: .say <text> OR .say <channel> <text>
  170. n168=    else {
  171. n169=      botlog $nick Say $2-
  172. n170=      if $left($2,1) = $chr(35) {
  173. n171=        if $me ison $2 msg $2 $3-
  174. n172=        else raw -q PRIVMSG $nick :4,0I'm not on $2
  175. n173=      }
  176. n174=      elseif $comchan($nick,0) != 0 msg $comchan($nick,1) $2-
  177. n175=    }
  178. n176=    halt
  179. n177=  }
  180. n178=}
  181. n179=on 50:TEXT:.act*:?:{
  182. n180=  if $ulevel != 60 {
  183. n181=    if $2 = $null raw -q PRIVMSG $nick :4,0Syntax: .act <text> OR .act <channel> <text>
  184. n182=    else {
  185. n183=      botlog $nick Act $2-
  186. n184=      if $left($2,1) = $chr(35) {
  187. n185=        if $me ison $2 describe $2 $3-
  188. n186=        else raw -q PRIVMSG $nick :4,0I'm not on $2
  189. n187=      }
  190. n188=      elseif $comchan($nick,0) != 0 describe $comchan($nick,1) $2-
  191. n189=    }
  192. n190=    halt
  193. n191=  }
  194. n192=}
  195. n193=on 50:TEXT:.part*:?:{
  196. n194=  if $ulevel != 60 {
  197. n195=    if $2 = $null { raw -q PRIVMSG $nick :4,0Syntax: .part <channel> | halt }
  198. n196=    botlog $nick Part $2
  199. n197=    if $me ison $2 { raw -q PRIVMSG $nick :4,0Parting $2 | part $2 }
  200. n198=    else { raw -q PRIVMSG $nick :4,0I am not on $2 $+ ! }
  201. n199=    halt
  202. n200=  }
  203. n201=}
  204. n202=on 50:TEXT:.join*:?:{
  205. n203=  if $ulevel != 60 {
  206. n204=    if $2 = $null { raw -q PRIVMSG $nick :4,0Syntax: .join <channel> | halt }
  207. n205=    botlog $nick Join $2
  208. n206=    if $left($2,1) != $chr(35) { raw -q PRIVMSG $nick :4,0 $+ $2 is not a valid channel name! ( $+ $2 $+ )  | halt }
  209. n207=    if $me ison $2 { raw -q PRIVMSG $nick :4,0I'm already on $2 $+ ! }
  210. n208=    else { raw -q PRIVMSG $nick :4,0Attempting to join $2 | join $2 }
  211. n209=    halt
  212. n210=  }
  213. n211=}
  214. n212=on 50:TEXT:.addhost*:?:{
  215. n213=  if $ulevel != 60 {
  216. n214=    if $2 = $null raw -q PRIVMSG $nick 4,0Syntax: .addhost <nick> <hostmask>, <hostmask> is optional
  217. n215=    elseif $a2($2) = $null raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on
  218. n216=    elseif $2 = $me raw -q PRIVMSG $nick :4,0I don't need to add my hostmask!
  219. n217=    else {
  220. n218=      set %temp $readini $ul Level $2
  221. n219=      if %temp = $null raw -q PRIVMSG $nick :4,0 $+ $2 is not in my userlist
  222. n220=      else {
  223. n221=        if ($3 = $null) set %host $convert($a5($2))
  224. n222=        else set %host $3
  225. n223=        set %nick $2
  226. n224=        if ($al(%host) > 10) raw -q PRIVMSG $nick :4,0 $+ %host is already a known hostmask
  227. n225=        else { addhost $2 %host | raw -q PRIVMSG $nick :4,0Added %host to $2 }
  228. n226=      }
  229. n227=    }
  230. n228=  }
  231. n229=}
  232. n230=on 50:TEXT:.adduser*:?:{
  233. n231=  if $ulevel != 60 {
  234. n232=    if (($4 != op) && ($4 != friend)) raw -q PRIVMSG $nick :4,0Syntax: .adduser <nick> <channel> <op OR friend>
  235. n233=    elseif $a2($2) = $null raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on
  236. n234=    elseif ($me !ison $3) raw -q PRIVMSG $nick :4,0I'm not on $2 $+ !
  237. n235=    elseif (($4 = friend) && ($isfriend($2,$3))) raw -q PRIVMSG $nick :4,0 $+ $2 is already in my friends or above on $3
  238. n236=    elseif (($4 = op) && ($isop($2,$3))) raw -q PRIVMSG $nick :4,0 $+ $2 is already in my ops or above on $3
  239. n237=    elseif ($readini $ul Level $2 != $null) raw -q PRIVMSG $nick :4,0 $+ $2 is already a recognized nick (try using .addhost)
  240. n238=    else {
  241. n239=      raw -q PRIVMSG $nick :4,0ok, adding $2 to my $4 $+ s list on $3
  242. n240=      set %addchan $3
  243. n241=      botlog $nick AddUser $2 (address $convert($2) $+ ) as $4
  244. n242=      if $4 = friend add $2 $convert($a5($2)) 20 $2
  245. n243=      else add $2 $convert($a5($2)) 40 $2
  246. n244=    }
  247. n245=    halt
  248. n246=  }
  249. n247=}
  250. n248=on 50:TEXT:.remove*:?:{
  251. n249=  if $ulevel != 60 {
  252. n250=    if $2 = $null raw -q PRIVMSG $nick :4,0Syntax: .remove <nick>
  253. n251=    elseif $a2($2) = $null raw -q PRIVMSG $nick :4,0Who?  I don't see $2 on any channels I'm on
  254. n252=    elseif $gl($2) >= 50 raw -q PRIVMSG $nick :4,0Sorry, $2 is in my userlist as a master or bot.  You cannot make me remove him or her.
  255. n253=    elseif $gl($2) = 1 raw -q PRIVMSG $nick :4,0 $+ $2 is not in my userlist!
  256. n254=    else {
  257. n255=      botlog $nick Remove $a5($2)
  258. n256=      raw -q PRIVMSG $nick :4,0ok, removing $2 from my userlist
  259. n257=      ru $2 $a5($2)
  260. n258=    }
  261. n259=    halt
  262. n260=  }
  263. n261=}
  264. n262=on 50:TEXT:.help:?:{
  265. n263=  if $ulevel != 60 {
  266. n264=    botlog $nick Help
  267. n265=    set %tn3 $nick | play -ctbot $me $mircdirhelp\msghelp.hlp 1000
  268. n266=    halt
  269. n267=  }
  270. n268=}
  271. n269=on 50:TEXT:.*:?:{
  272. n270=  if $ulevel != 60 {
  273. n271=    raw -q PRIVMSG $nick :4,0What?  Try .help
  274. n272=  }
  275. n273=}
  276. n274=#BOT end
  277.